home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol271 / morse.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-16  |  2.0 KB  |  65 lines
  1. 100  REM COPYRIGHT *c* 1983, 1986 Cass R. Lewart
  2. 105  REM Morse Code Program - PC version 3/31/86
  3. 110  CLEAR 5000
  4. 115  CLS:KEY OFF:WIDTH 40
  5. 120  DIM A$(63),C%(100),SIZE%(90),MORSE$(90)
  6. 125  DEFINT G,I-N
  7. 130  REM Introductory sentence
  8. 135  G$="MORSE CODE PROGRAM BY C.R. LEWART"
  9. 140  LOCATE 7,7:PRINT G$
  10. 145  PRINT"Program initializing, please wait .";
  11. 150  REM Find computer speed
  12. 155  TM$=TIME$:FOR I=1 TO 10:PRINT ".";:FOR J=1 TO 2000:NEXT:NEXT
  13. 160  SP=VAL(RIGHT$(TIME$,2))-VAL(RIGHT$(TM$,2))
  14. 165  IF SP<0 THEN SP=SP+60
  15. 170  IF SP<2 THEN SP=10:REM apparent timer problem
  16. 175  S=10:F=1000:NS=50000/SP
  17. 180  D1$="ABCDEFGHIJKKLMNOPQRSTUVWXYZ"
  18. 185  D2$="1234567890":D3$=";=?,-./"+CHR$(34)+CHR$(58)
  19. 190  REM Preset random number generator
  20. 195  A=RND(-VAL(RIGHT$(TIME$,2)))
  21. 200  REM Read Morse code equivalents from DATA
  22. 205  FOR X%=1 TO 32:SIZE%(X%)=0:NEXT
  23. 210  FOR X%=33 TO 90:READ SIZE%(X%),MORSE$(X%):PRINT".";:NEXT
  24. 215  F1$="###":F2$="######":F3$="#####.#"
  25. 220  REM Set dot, dash, space timing
  26. 225  DOT%=17500/SP/S: DASH%=3*DOT%
  27. 230  DDSPACE%=DOT%:CHSP%=3*DOT%
  28. 235  SPACE%=7*DOT% :GOSUB 745
  29. 240  PRINT:PRINT
  30. 245  PRINT"Change Sending Speed From";
  31. 250  PRINT USING F1$;S;:PRINT" WPM";:PRINT TAB(35)"- 1"
  32. 255  PRINT"Change
  33. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  34. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  35. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  36. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  37. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  38. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  39. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  40. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  41. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  42. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  43. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  44. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  45. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  46. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  47. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  48. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  49. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  50. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  51. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  52. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  53. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  54. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  55. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  56. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  57. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  58. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  59. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  60. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  61. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  62. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  63. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  64. 63222  <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}>
  65.